home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.42 / includes3v1 / includes3v1.lha / Libraries / MathFFP.i < prev    next >
Text File  |  1994-12-04  |  1KB  |  65 lines
  1. {
  2.         MathFFP.i for PCQ Pascal
  3.  
  4.         general floating point declarations.  Note that PCQ Pascal
  5.         floating point math is handled entirely independent of any
  6.         of these declarations.  It uses a different library pointer,
  7.         for example, and all the calls are handled in-line rather
  8.         than by calling these routines.  This is the library that is
  9.         used, however.
  10. }
  11.  
  12. Var
  13.     MathBase    : Address;
  14.  
  15. Const
  16.  
  17.     PI          = 3.141592653589793;
  18.     TWO_PI      = 2.0 * PI;
  19.     PI2         = PI / 2.0;
  20.     PI4         = PI / 4.0;
  21.     E           = 2.718281828459045;
  22.     LOG10       = 2.302585092994046;
  23.  
  24.     FPTEN       = 10.0;
  25.     FPONE       = 1.0;
  26.     FPHALF      = 0.5;
  27.     FPZERO      = 0.0;
  28.  
  29. Function SPAbs(fnum : Real) : Real;
  30.     External;
  31.  
  32. Function SPAdd(fnum1, fnum2 : Real) : Real;
  33.     External;
  34.  
  35. Function SPCeil(fnum : Real) : Real;
  36.     External;
  37.  
  38. Function SPCmp(fnum1, fnum2 : Real) : Short;
  39.     External;
  40.  
  41. Function SPDiv(fnum1, fnum2 : Real) : Real;
  42.     External;
  43.  
  44. Function SPFix(fnum : Real) : Integer;
  45.     External;
  46.  
  47. Function SPFloor(fnum : Real) : Real;
  48.     External;
  49.  
  50. Function SPFlt(inum : Integer) : Real;
  51.     External;
  52.  
  53. Function SPMul(fnum1, fnum2 : Real) : Real;
  54.     External;
  55.  
  56. Function SPNeg(fnum : Real) : Real;
  57.     External;
  58.  
  59. Function SPSub(fnum1, fnum2 : Real) : Real;
  60.     External;
  61.  
  62. Function SPTst(fnum : Real) : Short;
  63.     External;
  64.  
  65.